home *** CD-ROM | disk | FTP | other *** search
/ APDL Eductation Resources / APDL Eductation Resources.iso / programs / maths / mathgraph / !MathGraph / CreateDraw < prev    next >
Encoding:
Text File  |  1990-01-07  |  572 b   |  44 lines
  1.  
  2. r
  3. |Ý ¤get_word(file%)
  4. ŷ
  5. ê A,B,C,D
  6. Œ
  7. A=Œ#file%
  8. ¤
  9. B=Œ#file%
  10. ®
  11. C=Œ#file%
  12. ¸
  13. D=Œ#file%
  14. Â=A+(B<<8)+(C<<16)+(D<<24)
  15. Ì:
  16. ÖÝ òput_word(file%,word%)
  17. à
  18. ê A,B,C,D
  19. êdummy%=%11111111
  20. ôA=word% € dummy%
  21. þB=(word% € (dummy%<<8))>>8
  22.  C=(word% € (dummy%<<16))>>16
  23.  D=(word% € (dummy%<<24))>>24
  24. 0
  25. Õ#file%,A
  26. :
  27. Õ#file%,B
  28. D
  29. Õ#file%,C
  30. N
  31. Õ#file%,D
  32. Xá
  33. b:
  34. lÝ òfile_header(file%)
  35. vÕ#X,"Draw";
  36. €òput_word(file%,201)
  37. ⇩òput_word(file%,0)
  38. “Õ#X,"MathGraph   ";
  39. fiòput_word(file%,0)
  40. ¨òput_word(file%,0)
  41. ²òput_word(file%,1280)
  42. ¼òput_word(file%,1024)
  43. Æá
  44. ÿ